home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 January / Ahoy_Magazine_88-01_1988_Double_L.d64 / Fade Away 64-2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  569 b   |  22 lines
  1. 1 rem ==================================
  2. 2 rem    commodares problem #45-2 :
  3. 3 rem      fade away
  4. 4 rem    solution by
  5. 5 rem      norman richards
  6. 6 rem ==================================
  7. 10 rem ---- first program --------------
  8. 20 fora=100to1step-1:print"[147]first":forb=1toa:next:print"[147]":nexta
  9. 100 rem ---- second program -----------
  10. 110 w$="second"
  11. 120 l=len(w$):c$="":d$=""
  12. 130 for i=1 to l:for b=1 to 5
  13. 140 print c$" "w$" "
  14. 150 for a=1 to 50 : next
  15. 160 print d$" "w$" "
  16. 170 for a=1 to 50 : next
  17. 180 next b
  18. 190 d=d+1:if d=2 then d=0:w$=right$(w$,len(w$)-1):goto 210
  19. 200 w$=left$(w$,len(w$)-1)
  20. 210 next i
  21. 220 print"[147]"
  22.